home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc xi 93.d64 / main boot (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  2KB  |  32 lines

  1. 10 IFA<>0THEN120
  2. 20 D=PEEK(186):PRINT:INPUT"[147][196]O [217]OU [200]AVE A [198]ASTLOAD [213]TILITY [[217]/[206]]";FL$
  3. 30 IFFL$="N"THEN60
  4. 40 IFFL$="Y"THEN120
  5. 50 GOTO20
  6. 60 INPUT"[201]S [212]HIS [196]ISK [201]N [193] 1541[146] [207]R 1571[146] [196]RIVE";R$
  7. 70 IFR$="1541"THEN100
  8. 80 IFR$="1571"THEN110
  9. 90 GOTO60
  10. 100 OPEN15,D,15,"R:FL41!=F41":CLOSE15:OPEN15,D,15,"R:F71=FL71!":CLOSE15:GOTO170
  11. 110 OPEN15,D,15,"R:FL71!=F71":CLOSE15:OPEN15,D,15,"R:F41=FL41!":CLOSE15:GOTO170
  12. 120 IFA=0THENA=1:LOAD"ZAKP",D,1
  13. 130 IFA=1THENA=2:LOAD"ZAK",D,1
  14. 140 IFA=2THENA=3:LOAD"TPUG",D,1
  15. 150 IFA=3THENLOAD"MENU",D,1
  16. 160 END
  17. 170 LOAD"\BLOAD",D,1
  18. 180 .............................................................................
  19. 190 .............................................................................
  20. 200 .............................................................................
  21. 210 .............................................................................
  22. 220 .............................................................................
  23. 250 .............................................................................
  24. 260 ............................................................................
  25. 270 ............................................................................
  26. 280 ............................................................................
  27. 290 ............................................................................
  28. 300 ............................................................................
  29. 310 ............................................................................
  30. 320 ............................................................................
  31. 330 ............................................................................
  32.